The Netherlands - A Compact World/The Netherlands.iso/chapters/5.D.dxr/Internal_65_scrolldown V2.ls

Text File | 2004-06-10 | 868 b | 40 lines

on mouseDown me
  global ankertje, scrolldown
  if the milliSeconds > (ankertje + 300) then
    if member(sprite(24).member).scrollTop < ((member(sprite(24).member).lineCount * 12) - 60) then
      member(sprite(24).member).scrollTop = member(sprite(24).member).scrollTop + 5
    end if
  end if
  ankertje = the milliSeconds
  scrolldown = 1
end

on enterFrame
  global scrolldown, ankertje
  if scrolldown = 1 then
    if the milliSeconds > (ankertje + 300) then
      if member(sprite(24).member).scrollTop < ((member(sprite(24).member).lineCount * 12) - 60) then
        member(sprite(24).member).scrollTop = member(sprite(24).member).scrollTop + 5
      end if
    end if
  end if
end

on mouseUp
  global scrolldown
  scrolldown = 0
end

on mouseUpOutSide
  global scrolldown
  scrolldown = 0
end

on mouseEnter
  cursor(280)
end

on mouseLeave
  cursor(-1)
end